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INTRODUCTION 



The discussion and design shown in this Addendum is 
dedicated to the Minifloppy™ Diskette Storage Drive. This 
drive is somewhat different, both electrically and mechanically, 
from the standard floppy disk drives found throughout the 
industry. The Minifloppy is smaller, less expensive, and is 
based upon the same floppy disk drive technology as the standard 
floppy. However, its data transfer rate is half as fast and its 
total data storage capacity is approximately one-third. 

This design uses a single uPD372 Floppy Disk Controller to 
control a pair of Minif loppies. The interface to the floppies 
has been configured so as to allow overlap-seeks to be 
programmed. If only a single drive is used or if overlap-seeks 
are not required, then two or three logic IC's may be removed 
from this design. The controller's architecture remains the same 
as in the standard floppy design shown in the uPD372 Users' 
Manual. 

Before proceeding into the design of this controller, the 
UPD372 Users' Manual should be read. All the basic concepts and 
characteristics of the uPD372 are explained in this document, and 
it will be assumed that the reader is familiar with them. For 
clarity in this document the uPD372 Users' Manual will be 
referred to as Users' Manual and this document referred to as the 
Addendum. 



TM — Shugart Associates 



MINIFLOPPY INTERFACE SIGNALS 

There are several signals which have been deleted in the 
Minifloppy as well as several new signals. These are summarized 
below: 

Deleted Signals New Signals 

(Used only on Standard Floppy) 

Head Load Index/Sector 

Write Fault Drive Select 1 

Write Fault Reset Drive Select 2 

Low Current Drive Select 3 

Sector Motor ON 

Index 

Ready 

The Head Load signal has been deleted in the Minifloppy. 
The head is loaded concurrently with the Motor ON signal. Write 
Fault and Write Fault Reset which were tests of the Floppy's 
status prior to attempting to write a diskette, have both been 
eliminated. Many standard floppies (IBM compatible) have a Low 
Current signal which allows the write current in the recording 
head to be decreased on tracks 44-76 — this signal has been 
eliminated. If a hard sector recording format is used, the 
standard floppies provided separate signal outputs for both 
Sector and Index. The Minifloppy requires that the user separate 
these signals (this is usually done with a one-shot circuit) . 
The READY command in the standard floppy indicated to the 
controller that a diskette had been inserted, the door was 
closed, and that the diskette was spinning; this signal has also 
been eliminated. 

Three separate device select lines are provided on the 
Minifloppy and the appropriate one is selected by the use of 
hardware straps in the drive. This allows a maximum of three 
drives to be selected without additional decoding hardware. The 
Minifloppy uses a dc motor for rotating the diskette, a separate 
signal called MOTOR ON is used for turning the motor on. In 
order to increase the longevity of the motor, software has been 
incorporated in the controller so that two seconds after the last 
program instruction, the motor is shut off. 

The following figure shows a typical interface connection 
between the controller and the Minifloppy. 
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Figure 1 — Controller/Minifloppy Interface 

From the detail schematic (Figure 6) it can be seen that the 
functions of the following signals coming out of the uPD372 have 
been changed to execute the new commands. 

Standard Floppy Command 372 Pin Number Minifloppy Command 

(WFR) Write Fault Reset 23 Motor ON (Device #1) 

(LCT) Low Current 22 Motor ON (Device #2) 



The functional performance of these signals is changed in 
software and requires no change to the uPD372 hardware. 

The uPD372 has two pairs of device select lines, an A pair 
and a B pair. In this application these lines have been 
configured to control pnly two Minif loppies. The A pair (UA0 and 
UA1) are used as follows: 

UA0 - Select Read/Write Electronics in Drive #1 

UA1 - Select Read/Write Electronics in Drive #2 

The B pair (UB0 and UB1) are used as follows: 

UB0 - Select Motion Control Electronics in Drive #1 
UBl - Select Motion Control Electronics in Drive #2 

Software constraints have been incorporated so that: 

t Only one Drive may be Reading or Writing at a time. 

• Only one Drive may be Stepping IN or OUT at a time. 

However, it is possible to Read or Write on one Drive while 
stepping on the other. This is done by selecting UA0 • UBl or 
UA1 • UB0. 

When two Minifloppies are used, connector Jl on the 
controller should be connected to Drive #1 and J2 to Drive #2, 
(Radial busing to the Drives). This should be done in order to 
keep the hardware decoding on IC's U50, U51, U53 and U17 the same 
as the software listing. 



RECORDING FORMAT 



The software listing shown at the end of this Addendum and 
the discussion which follows is for a Soft Sectored format. 
However, if the user wishes to use Hard Sectoring, he may do so 
by simply changing the software (the UPD372 is not a limiting 
factor to hard sectoring) . Soft Sectoring has 35 Tracks per 
diskette and 18 Sectors per Track. All 35 Tracks are formatted 
in exactly the same manner and follow the standard IBM format 
fairly closely. Figure 3 shows the recording format which will 
be used in this Minifloppy Addendum. 

Data which is recorded on the diskette is done so by using 
frequency encoding. This technique requires that each data bit 
recorded on the diskette has an associated clock bit recorded 
with it. Data which is written or read back from the diskette 
has the form shown in Figure 2. 
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FIGURE 2 
FREQUENCY ENCODED DATA 

The encoded bit pattern shown in Figure 2 is binary 101. 
Refer to Figures 7 and 8 (Page 27) of the Users' Manual and note 
that the bit cell times shown are exactly 1/2 as long as those 
shown in this Addendum. Flip-flop U58(A) has been added in 
series with the Write Clock Signal on the uPD372 (pin 13) in 
order to divide the clock rate in half, making it compatible with 
the Minifloppy requirements. 

Three special identification marks (Address Marks) , are used 
in the Minifloppy, (four Address Marks are used in the Standard 
Floppy) . 

MINIFLOPPY ADDRESS MARKS 

ID Address Mark 
Data Address Mark 
Deleted Data Address Mark 



When the Deleted Data Address Mark is written at the 
beginning of a data field, then the entire contents of the data 
field will be ignored. Figure 4 shows the recording format for 
these special codes. 



200 m 



INDEX 



-J L 



INDEX 
SAP 



SECTOR 01 



SECTOR 02 



1^ 



SECTOR 03 



SECTOR 17 



SECTOR 18 



PRE -I 
GAP 



I 



INDEX 
GAP 



SECTOR 01 



* s 



fi TURN WRITE GATE; 
u ON FOR NEXT 
K DATA FIELD 



ssl 






~I03 BYTES 

"rr" 



+y 



§ g 

u u 



llttM 



/ 



TURN WRITE GATE 
OFF FOR PRIOR 
DATA FIELD 



3*3 



IC 8YTES 

"rr" 



4 BYTES 

"00" 



IVTE BYTE BYTE BYTE 



6 BYTES 

"FF" 



4 BYTES 

"oo- 



1 
IBYTEI 



128 BYTES 
DATA 



BYTE BYTE 



IGBVT18 



4 BYTES 



INOfX GAP- 



.28m 



I 
I 



10 RECORD 



0.92m* 




DATA FIELO 



8.38m 



m POST DATA PICLS SAP 



*M- 



1.244m 



IO.S88m 



FIGURE 3 
MINIFLOPPY RECORDING FORMAT 
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FIGURE 4 
ADDRESS MARKS 



DATA CONDITIONER 



The uPD372 contains the electronic circuitry for separating 
the Data and Clock pulses out of the Read Data signal. However, 
the uPD372 does require some external circuitry so that its 
internal registers which are clocked on the trailing ed<je of 02 
will be presented the proper data. The external circuitry for 
accomplishing this is called a "Data Conditioner". The floppy 
disk's Read Signal is asynchronous with the microprocessors' 
clocks. The Data Conditioner function is to stretch the narrow 
Read Signal pulses from the floppy so that they will overlap the 
microprocessor's clock interval, allowing them to be strobed into 
the UPD372. 

The Data Conditioner required for the Minifloppy is much 
simpler than that required for the Standard floppies. The reason 
being that the bit cell time is twice as long, namely 8us vs. 
4us; thereby eliminating the need for double buffering of the 
data. The conditions and requirements mentioned on Pages 26, 27 
and 28 of the Users' Manual are still applicable. Figure 5 shows 
the schematic and timing diagram for a Minifloppy Data 
Conditioner . 

The Read Data signal coming from the Minifloppy consists of 
a string of pulses representing flux reversals on the diskette. 
U55A is a retr iggerable one-shot which times out after 5.8us, 
detecting the absence of either a data or clock pulse in the Read 
Data. The Q output of U55A is used as the Read Data input to the 
UPD372 (RD) . The "AND" gate (7408) and the associated RC network 
on one of its inputs, detects negative going transitions at the 
output of the RD one-shot. The pulses at point' A indicate missing 
clock or data information during each data cell. These pulses 
are "OR'd" with the Read Data (7432) producing a pulse stream 
which contains two pulses per data cell, point B. U55B converts 
this pulse stream into pulses whose widths are uniform (750ns 
wide) , which may then be sent to the Read Clock input of the 
UPD372 (RCK) . 

It should be noted that two (2) RCK pulses are always 
generated per data cell, even when clock or data pulses are 
missing. The 02 clock pulses (which drive both the 
microprocessor and uPD372) occur at a 500ns rate, thereby, 
dictating that the RCK pulses should be 750ns wide for an optimum 
sampling rate of once per 02 pulse. Once a positive transition 
of RCK is sensed by 02, the following 02 pulse, clocks the logic 
level of RD into the uPD372's internal shift register. When the 
user implements either this or his own Data Conditioner circuit, 
it is important that he follow the timing constraints outlined in 
this section of the manual. 
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FIGURE 5 
MINI -FLOPPY DATA CONDITIONER 



SAMPLE CONTROLLER DESIGN 



Hardware 



A Controller design is shown in Figure 6. The Controller is 
architectured in exactly the same manner as shown in the Users' 
Manual (reference Pages 31-39) . The connections to the 
Minifloppies are done through connectors Jl and J2 on the 
right-hand side of the schematic. This design handles only two 
drives. However, four drives could be accommodated by simply 
decoding the UA0 and UA1 as well as the UB0 and UB1 lines into 
two sets of four lines. The figure below shows how this may be 
achieved. 
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Figure 7 — Multiple Drive Decoding 



The program for this Controller is contained in a single IK 
x 8 bit electrically erasable PROM (Part Number uPD458) . 
However, once the user is confident of his program, a custom'ROM 
(uPD2308) could be made, reducing the parts' costs. The ROM 
contains the Drives' Reading, Writing, Forma 
Handling Routines. 
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NOTES 

1. THE HOST PROCESSOR AND CONTROLLER PROCESSOR ARE BOTH uPD8080A'S. 
HOST PROCESSOR SIGNALS ARE PREFIXED WITH H-. CONTROLLER PROCESSOR 
SIGNALS ARE PREFIXED WITH C-. 

2. THE HOST HAS DIRECT MEMORY ACCESS INTO THE CONTROLLER- NOT VICE VERSA. 

3. HOST ADDRESS SIGNALS DO NOT REACH THE CONTROLLER MEMORIES UNTIL 
C-HLDA IS GRANTED DURING A HOST ACCESS. THE HOST IS THEN IN A TW 
STATE. ONE SHOT U26A KEEPS THE H-READY LINE LOW (TO MAINTAIN ADDRESS 
AND DATA PATHS) FOR AT LEAST THE 450ns MEMORY ACCESS TIME. 

4. FTWR IS ALREADY PRESENT DURING A WRITE CYCLE WHEN THE HOST ADDRESS 
SIGNALS REACH THE CONTROLLER MEMORIES (HOST IS IN A TW STATE AT C-HLDA). 
THIS DELAY CIRCUIT KEEPS THE CONTROLLER RAM R/W SIGNAL HIGH FOR 
THE REQUIRED Taw TIME. SEE UPD2I0IAL SPECIFICATION. 

5. THIS CIRCUIT JAMS AN "F8" (HEX) CODE (ENABLE INTERRUPT) ONTO THE 
DATA BUS DURING C-INTA. 
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Software 



The program listing at the end of this Addendum is intended 
to be a superset of the program in the Users' Manual. The source 
program contains all instructions necessary for both the 
Minifloppy and the Standard floppy, all the instructions for both 
Read/Write and Formatting, and all the instructions for both 
Single and Multi unit systems. For any specific case, only 
selected portions of the source program should be assembled. 
This is accomplished by setting the symbols 



STD, MINI; RDWR, FMT; MU, NU 



to the appropriate values. All but the symbol NU are set to 
either a true or a false value. A true value is defined as 16 
one bits which is FFFF in hexadecimal. A false value is defined 
as 16 zero bits, or 0000 hexadecimal. The last symbol, NU, is 
set to the number of units (drives) in the system. 

The attached assembly listing is assembled for a Minifloppy, 
with Read/Write and Format routines, for a Multi-Unit system with 
two units. Therefore, the symbolic values are as follows: 



STD EQU FALSE 
MINI EQU TRUE 



(Standard = False) 
(Minifloppy = True) 



RDWR EQU TRUE 
FMT EQU TRUE 



(Read/Write = True) 
(Format = True) 



MU EQU TRUE (Multi-Unit = True) 
NU EQU 2 (No. Units = 2) 



Note: For more than 2 units, both 

hardware and software require 
some minor modifications. 
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The memory map for the controller program is as follows 
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Figure 8 — Memory Map 
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The logic flow for the controller program is simple and is 
shown as follows: 
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Figure 9 — Program Logic Flow 

In the attached assembly listing, the sou 
produces assembled code (numbers) in the two 1 
Those portions of the source that were skipped 
values of MINI, STD, etc., produce no code in 
columns. Therefore, when reading through the 
if the two left-hand columns are blank, ignore 
statements to the right. After the basic progr 
these skipped portions will show the differenc 
and the Standard, and the differences between 
Multi-Unit system. 
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0000 

FFFF 
0000 
FFFF 
FFFF 
FFFF 
FFFF 
0002 



0000 
0080 
0040 
0008 
0004 
0002 



NEC FLOPPY DISK DRIVE CONTROLLER PROGRAM 04-05-77 17 00 (GCY) 
CALLING SEQUENCE 

IN ANY SEQUENCE SET THE VALUES FOR THE PARAMETERS: 
UNIT (0 TO (NU-1) ) 
TRACK (0 TO (NTRKS-1) ) 
SECTR (1 TO NSCTR) 

SCTSZ (4 TO NBSCT) - OPTIONAL: DEFAULT=128 
THE LAST THING TO DO IS TO SET THE COMMAND. 
CMND =1 FOR READ 
=2 FOR WRITE 
=3 FOR SEEK 

=4 FOR INIT (INITIALIZE) 
=5 FOR FRMAT (FORMAT) 
=6 FOR RST0 (RESET) 
THE CONTROLLER SIGNALS COMPLETION BY ZEROING THE 
COMMAND LOCATION. THEREFORE WAIT FOR CMND=0 . 



ASSEMBLY SWITCHES 

FALSE EQU 

TRUE EQU NOT FALSE 

STD EQU FALSE ; STANDARD FLOPPY 

MINI EQU TRUE MINIFLOPPY 

RDWR EQU TRUE ; READ/WRITE SWITCH 

FMT EQU TRUE ; FORMAT SWITCH 

MU EQU TRUE ; MULTIPLE UNITS 

NU EQU 2 ;NUMBER OF FLOPPY DISK DRIVE UNITS 



***** EQUATES FOR USE WITH UPD372 ***** 



W0 EQU ;WRITE REGISTER ZERO 

W0RST EQU 80H ; RESET 

W0MBL EQU 40H ;MUST BE LOW 

W0HLD EQU 8H ;HEAD LOAD (NOT USED FOR MINI) 

W0LCT EQU 04H ; LOW CURRENT (MOTOR ON FOR MINI #2) 

W0WFR EQU 02H ;WRITE FAULT RESET (MOTOR ON FOR MINI 



#D 



0001 
0080 
0038 
0010 
0000 

0004 
0003 



Wl 

W1CBS 

W1CBN 

W1CBI 

W1CBD 

W1UAS 
W1UAA 



EQU 1 
EQU 80H 
EQU 38H 
EQU 10H 
EQU 00H 

EQU 04H 
EQU 03H 



WRITE REGISTER ONE 

CLOCK BIT STROBE 

CLOCK BITS FOR NORMAL DATA 

CLOCK BITS FOR INDEX ADDRESS MARK 

CLOCK BITS FOR ID, DATA, 

OR DELETED DATA ADDRESS MARK 

UNIT A STROBE 

UNIT A ADDRESS MASK 



0002 



W2 



EQU 2 ;WRITE DATA REGISTER 



0003 
0080 
0040 
0020 
0010 
0008 



W3 EQU 3 ; WRITE REGISTER THREE 

W3RCS EQU 80H ;READ CLOCK SET 

W3WCS EQU 40H ;WRITE CLOCK SET 

W3STT EQU 20H ; START READ/WRITE OPERATION 

W3WES EQU 10H ;WRITE ENABLE SET 

W3IXS EQU 08H ; INDEX START 
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0004 
0002 
0001 

0004 
0080 
0040 
0020 
0004 
0003 

0006 
0004 
0002 
0001 

0000 
0080 
0040 
0030 
0008 
0004 

0002 

0001 



0001 
0080 
0040 
0020 
0010 
0008 
0004 
0003 

0002 



W3WER EQU 04H ;WRITE ENABLE RESET 

W3CCG EQU 02H ; CYCLIC CHECK GENERATE 

W3CCW EQU 01H ;READ/WRITE CYCLIC CHECK WORDS 

• 

W4 EQU 4 ;WRITE REGISTER FOUR 

W4STS EQU 80H, ;STEP STROBE 

W4SID EQU 40H ;STEP IN OR DIRECTION 

W4SOS EQU 20H ;STEP OUT OR STEP 

W4UBS EQU 4H ;UNIT B STROBE 

W4UBA EQU 03H ;UNIT B ADDRESS MASK 

W6 EQU 6 ;WRITE REGISTER SIX 

W6TRR EQU 04H ;TIMER REQUEST RESET 

W6IRR EQU 2H ; INDEX REQUEST RESET 

W6DRR EQU 01H ;DATA REQUEST RESET (DONE BY HARDWARE) 

R0 EQU ;READ REGISTER ZERO 

R0ALH EQU 80H ;ALWAYS HIGH 

R0RYB EQU 40H ; READY B (NOT USED WITH MINI) 

R0UBA EQU 30H ;UNIT B ADDRESS MASK 

R0ERR EQU 08H ; ERROR 

R0TRQ EQU 04H ; TIMER REQUEST 

; (NO INTERRUPT GENERATED) 

R0IRQ EQU 02H ; INDEX REQUEST 

; (INTERRUPT CLEARED BY SOFTWARE) 

R0DRQ EQU 01H ;DATA REQUEST 

; (INTERRUPT CLEARED BY HARDWARE) 

Rl EQU 1 ;READ REGISTER ONE 

RlWRT EQU 80H ; WRITE MODE 

R1T00 EQU 40H ; TRACK 00 

RIDER EQU 20H ;DATA ERROR (CRC) 

R1COR EQU 10H ; COMMAND OVERRUN 

R1RYA EQU 08H ; READY A (NOT USED WITH MINI) 

R1WFT EQU 04H ;WRITE FAULT (NOT USED WITH MINI) 

R1UAA EQU 03H ;UNIT A ADDRESS MASK 

R2 EQU 2 ;READ DATA REGISTER 



0003 


NTRYS 


EQU 3 
IF MINI 


0023 


NTRKS 


EQU 35 


0012 


NSCTR 


EQU 18 


0080 


NBSCT 


EQU 128 


07D0 


TMLIM 


EQU 2000 


0028 


TTACS 


EQU 40 


000A 


STLNG 


EQU 10 


0008 


RSKIP 


EQU 8 


0006 


WSKIP 


EQU 6 


000F 


NFPOI 


EQU 16-1 


0006 


NFGP2 


EQU 6 


0011 


NFGP3 


EQU 17 
ENDIF 



; NUMBER OF READ RETRYS 

;NO. OF TRACKS/DISK 
;NO. OF SECTORS/TRACK 
;NO. OF BYTES/SECTOR 

;IDLE TIME LIMIT IN MS 
; TRACK TO TRACK ACCESS IN MS 
;HEAD SETTLING TIME IN MS 
;NO. OF GAP BYTES TO SKIP IN READ 
;NO. OF GAP BYTES TO SKIP IN WRITE 

;NO. OF FF'S IN POST INDEX GAP 
;NO. OF FF'S IN GAP 2 
;NO. OF FF'S IN GAP 3 
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0480 



NTRKS 
NSCTR 
NBSCT 
LHCTK 
TMLIM 
TTACS 
RSKIP 
WSKIP 
NFPRI 
NFPOI 
NFGP2 
NFGP3 

STACK 



IF STD 
EQU 7 7 
EQU 26 
EQU 128 
EQU 4 3 
EQU 667 
EQU 10 
EQU 13 
EQU 11 
EQU 40- 
EQU 26 
EQU 11 
EQU 27 
ENDIF 
EQU 048 



NO. OF TRACKS/DISK 

NO. OF SECTORS/TRACK 

NO. OF BYTES/SECTOR 

LAST HIGH CURRENT TRACK 

IDLE TIME LIMIT IN MS 

TRACK TO TRACK ACCESS IN MS 

NO. OF GAP BYTES TO SKIP IN READ 

NO. OF GAP BYTES TO SKIP IN WRITE 

;NO. OF FF'S IN PRE INDEX GAP 

;NO. OF FF'S IN POST INDEX GAP 

;NO. OF FF'S IN GAP 2 

;NO. OF FF'S IN GAP 3 



0H 



0000 



0000 F3 

0001 3E80 
0003 D300 
0005 318004 

0008 210004 
000B 061A 
000D AF 
000E 77 
000F 23 

0010 05 

0011 C20E00 

0014 3E80 
0016 320404 



0019 010100 
001C CD2600 

001F 0D 

0020 F21C00 

0023 C34E00 



0026 



ORG 



***** RESET ***** 



RST0: 



; RESET 

; RESET 37 2, CLEAR WRITE ENABLE 



DI 

MVI A,W0RST 

OUT W0 

LXI SP f STACK 
; INITIALIZE DATA AREA TO ZERO 
RS0 20: LXI H,CMND ;HL=ADR (DATA AREA) 

MVI B,NB ;B=NO. OF BYTES 

XRA A 

MOV M,A ;M=0 

INX H 

DCR B ;DONE? 

JNZ RS030 ;NO 
INITIALIZE SECTOR SIZE 

MVI A, NBSCT 

STA SCTSZ 
INITIALIZE ALL UNITS 

IF MU 



RS030 



RS010 



LXI 


B,NU- 


ENDIF 




CALL 


INIT 


IF MU 




DCR 


C 


JP 


RS010 


ENDIF 




JMP RT010 



; START WITH UNIT (NU-1) 



;LAST UNIT? 

;NO, GO DO NEXT UNIT 



***** INITIALIZE DISK UNIT SUBROUTINE ***** 
INPUT: BC=UNIT# 
REGISTERS: AF,DE,HL 
STACK PAIRS: 2 
INIT EQU $ 
IF NOT MU 
CALL UASLC 
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0026 CDDF02 



0029 CDBB02 



002C 1E22 
002E DB01 
0030 E640 
0032 C23C00 
0035 CD8302 

0038 ID 

0039 C22E00 
003C 211204 

003F 09 

0040 70 

0041 C9 



MOVE 



IN010 



ENDIF 
IF MU 

CALL UBSLC 
ENDIF 
IF MINI 
CALL MTOFF 
ENDIF 
IF STD 
CALL UNLD, 
ENDIF 
HEAD TO TRACK ZERO 
MVI E,NTRKS-1 ;E=LOOP LIMIT 



;TURN MOTOR OFF AND UNLOAD HEAD 



; UNLOAD HEAD 



IN Rl 
ANI R1T00 
JNZ IN020 
CALL STO 



IN020 



DCR 
JNZ 
LXI 
IF MU 
DAD 
ENDIF 
MOV M,B 
RET 



E 

IN010 

H,TKPTR 

B 



READ STATUS 
TRACK 0? 
YES, DONE 
NO, STEP OUT 
LIMIT REACHED? 
NO, CHECK AGAIN 



;ADD UNIT# TO HL 
;TKPTR=0 



0042 F3 

0043 CA4B00 
0046 3E01 
0048 320504 
004B CDD200 
004E 3E03 
0050 321004 

0053 AF 

0054 320004 



0057 DB00 

0059 E604 
005B CA8800 
005E D306 

0060 010100 
0063 211404 

0066 CDF702 

0069 C5 
006A 01D007 
006D 5E 
006E 23 
006F 56 

0070 13 



; RETURN FROM COMMAND 
RETRN: DI 

JZ RT005 

MVI A,l 

STA MERF 
RT005: CALL TRSET 
RT010: MVI A,NTRYS 

STA RRTRY 

XRA A 

STA CMND 



WAS THERE AN ERROR? 
YES, SET THE 
MASTER ERROR FLAG 
RESET IDLE TIME 

; RESET NO. OF READ RETRYS 

; RESET COMMAND TO ZERO 



IDLE LOOP 



CHECK FOR A COMMAND 



CHECK IDLE TIME 



IDL10 



IDL20 



IN 

ANI 

JZ 

OUT 

LXI 

LXI 

IF MU 

CALL 

ENDIF 

PUSH 

LXI 

MOV 

INX 

MOV 

INX 



; INPUT CLOCK STATUS 

;DID CLOCK TICK? 

;NO, GO CHECK FOR COMMAND 

;YES, RESET CLOCK, UPDATE IDLE TIME 

;BC=UNIT# 



R0 

R0TRQ 

IDL40 

W6 

B,NU-1 

H,ITIME 

DINDX 



B ;SAVE BC 

B,TMLIM ;BC=TIME LIMIT 

E,M 

H 

D,M ;DE=ELAPSED IDLE TIME 

D ; INCREMENT IDLE TIME 



19 



0071 


72 


0072 


2B 


0073 


73 


0074 


7A 


0075 


B8 


0076 


C28300 


0079 


7B 


007A 


B9 


007B 


C28300 


007E 


CI 


007F 


C5 



0080 CDBB02 



MOV 

DCX 

MOV 

MOV 

CMP 

JNZ 

MOV 

CMP 

JNZ 

POP 

PUSH 

IF MINI 

CALL 

ENDIF 
IF STD 
CALL 



M,D 

H 

M,E 

A,D 

B 

IDL30 

A,E 

C 

IDL30 

B 

B 

MTOFF 



UNLD 



0083 CI 

0084 0D 

0085 F26300 



0088 3A0004 
008B B7 
008C CA5700 



ENDIF 
IDL30: POP B 
IF MU 
DCR C 
JP IDL20 
ENDIF 
; CHECK FOR COMMAND 
IDL40: LDA CMND 
ORA A 
JZ IDL10 
; EXECUTE COMMAND 
; A=COMMAND ( 1-NCMDS ) 
008F 4F EXEC: MOV C f A 
0090 110504 LXI D,MERF 

0093 060B MVI B,NF 

0095 AF XRA A 

0096 12 EX005: STAX D 

0097 13 INX D 

0098 05 DCR B 

0099 C29600 JNZ EX005 
009C 3E06 MVI A,NCMDS 
009E B9 CMP C 

009F D2A800 JNC EX010 

00A2 320604 STA CMDER 

00A5 C3E700 JMP ERROR 

; CHECK ALL PARAMETERS 
00A8 110104 EX010: LXI D,UNIT 
00AB 21F000 LXI H,LMTBL 

00AE 0604 MVI B f NP 

0B0 1A EX0 20: LDAX D 
00B1 BE CMP M 

00B2 DAE200 JC EX040 

00B5 23 INX H 

00B6 BE CMP M 

00B7 D2E200 JNC EX040 

00BA 23 INX H 



; UPDATE IDLE TIME 

;TEST MSB 

;D=B? 

;NO, CONTINUE 

E=C? 

NO, CONTINUE 

RESTORE BC 

MAINTAIN STACK POSITION 

;YES, TIME LIMIT REACHED, 
;TURN OFF MOTOR, UNLOAD HEAD 



;YES, TIME LIMIT REACHED, 
,- UNLOAD HEAD 

; RESTORE STACK POSITION 

;LAST UNIT? 

;NO, KEEP CHECKING 



;IS THERE A COMMAND? 
;NO, STAY IN IDLE LOOP 



;SAVE COMMAND IN C 
;ZERO FLAGS 



;IS CMND OK? 

;YES 

;NO, SET FLAG 



DE=ADR (PARAMETERS) 

HL=ADR (LIMIT TABLE) 

B=NO. OF PARAMETERS 

A=PARAMETER 

LOWER LIMIT OK? 

NO, ERROR 

YES 

UPPER LIMIT OK? 

NO, ERROR 

YES 
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00BB 


13 




INX 


D 




0BC 


05 




DCR 


B J 


DONE? 


00BD 


C2B000 




JNZ 


EX020 ; 


NO 






; COMMAND AND PARAMETERS 


OK 


00C0 


79 




MOV 


A f C j 


YES, A=COMMAND 


00C1 


21F800 




LXI 


H,CTBL 




00C4 


3D 




DCR 


A ; 


A=(0-(N-1) ) 


00C5 


07 




RLC 


4 

i 


A=2*A 


00C6 


5F 




MOV 


E,A 




00C7 


1600 




MVI 


D,0 




00C9 
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DAD 


D ; 


■HL=ADR(ADR) 


00CA 


5E 




MOV 


E,M 




00CB 


23 




INX 


H 




00CC 


56 




MOV 


D,M 


•DE=ADR 


00CD 


214200 




LXI 


H , RETRN 




00D0 


E5 




PUSH H 


•(SP)=RETURN ADDRESS 


00D1 


D5 




PUSH D 


•SAVE ROUTINE ADDRESS 






;IDLE TIME RESET 




00D2 


3A0104 


TRSET: 


LDA 


UNIT 




00D5 


4F 




MOV 


C,A ; 


C=UNIT # 


00D6 


0600 




MVI 


B,0 j 


BC=UNIT# 


00D8 


211404 




LXI 


H,ITIME 










IF MU 




00DB 


CDF702 




CALL DINDX 
ENDIF 




00DE 


70 




MOV 


M,B 


-SET IDLE TIME TO ZERO 


0DF 


23 




INX 


H 




00E0 


70 




MOV 


M,B 




00E1 


C9 




RET 




•VECTOR TO ROUTINE, OR 
• RETURN TO CALLER 


00E2 


3E01 


EX040: 


MVI 


A,l 




00E4 


320704 




STA 


PRMER 


•SET PARAMETER FLAG 


00E7 


320504 


ERROR: 


STA 


MERF 


•SET MASTER ERROR FLAG 


00EA 


318004 




LXI 


SP, STACK 


•RESET SP 


00ED 


C34E00 




JMP 


RT010 








;LIMIT 


TABLE (UPPER AND LOWER FOR PARAMETERS) 


00F0 


0002 


LMTBL: 


DB 0,NU 


;UNIT 


00F2 


0023 




DB 0,NTRKS ; 


•TRACK 


00F4 


0113 




DB 1,NSCTR+1 


•SECTR 


00F6 


0481 




DB 4,NBSCT+1 ; 


•SCTSZ 






; COMMAND TABLE 




00F8 


8F01 


CTBL: 


DW READ 


•1 


00FA 


0C02 




DW WRITE 


•2 


00FC 


0401 




DW SEEK ; 


•3 


00FE 


2600 




DW INIT j 


•4 


0100 


FF02 




DW FRMAT 


•5 


0102 


0000 




DW RST0 


•6 


0006 




NCMDS 


EQU 


($-CTBL)/2 
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0104 

0104 CDDF02 



0107 211204 

010A 09 

010B 3A0204 
010E BE 
010F C8 

0110 E5 

0111 DA1A01 
0114 CD7C02 



0117 C31D01 
011A CD8302 



011D El 

011E 3A0204 

0121 BE 

0122 C20401 
0125 060A 
0127 CDE602 
012A C9 



012B CD0401 
012E CDD802 



***** SEEK TRACK ROUTINE ***** 
INPUT: BC=UNIT# 

REGISTERS: AF,D,HL 

SUBROUTINES: UASLC ,UBSLC,STI ,STO 



SEEK 



SK010 



SK020 



EQU 


$ 


IF MU 




CALL 


UBSLC 


ENDIF 




IF NOT MU 


CALL 


UASLC 


ENDIF 




LXI 


H,TKPTR 


IF MU 




DAD 


B 


ENDIF 




LDA TRACK 


CMP M 




RZ 




IF MINI 




PUSH 


H 


ENDIF 




JC 


SK010 


CALL STI 


IF STD 




JMP SEEK 


ENDIF 




IF MINI 




JMP 


SK020 


ENDIF 




CALL STO 


IF STD 




JMP SEEK 


ENDIF 




IF MINI 




POP 


H 


LDA 


TRACK 


CMP 


M 


JNZ 


SEEK 


MVI 


B,STLNG 


CALL 


DELAY 


RET 




ENDIF 




IF RDWR 





;ADD UNIT# TO HL 

;A=TRACK DESIRED 

;TRACK=TKPTR 

;SAVE ADR(TKPTR) 

;TKPTR>TRACK 
;TKPTR<TRACK 



;TKPTR>TRACK 



;HL=ADR(TKPTR) 

;TRACK=TKPTR? 

;NO, KEEP SEEKING 

;YES f ALLOW HEAD TIME TO SETTLE 



READ ID RECORD ROUTINE 



REGISTERS: A,F,B,C,DE, HL 



RID: CALL SEEK 
IF MU 

CALL UASLC 
ENDIF 



; POSITION HEAD 

;SELECT UNIT WITH A LINES 
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0131 CD9E02 



IF MINI 

CALL 

ENDIF 

IF STD 

CALL RDYA 

CALL HDLD 

ENDIF 



MTRON ;TURN ON MOTOR AND LOAD HEAD 



; CHECK FOR UNIT READY 
;LOAD HEAD 



0134 0E04 



MVI 



C,4 



0136 
0139 
013C 
013D 
013E 

0140 
0142 



0144 
0145 



210204 

110A04 

AF 

47 

D303 

3EA0 
D303 



FB 
76 



RIA 



LXI H, TRACK 
LXI D,WTRK 
XRA A 
MOV B,A 
OUT W3 



; STORE LIMIT OF REVOLUTIONS OF 
;DISK WITHOUT FINDING CORRECT ID 
; RECORD. USE 4 TO GUARANTEE 
; THREE COMPLETE REVOLUTIONS. 

; INITIALIZE TRACK/SECTR POINTER 
; INITIALIZE FLAG POINTER 

SET B=0 

RESET STT (FOR RETRY) 



MVI A,W3RCS+W3STT ;RCS=1, STT=1 



OUT 



EI 
HLT 



W3 



GO TO READ CLOCK. SET STT TO AUTO- 
MATICALLY START READ OPERATION WHEN 
ADDRESS MARK IS READ. 

ENABLE INTERRUPT AND WAIT FOR 
ADDRESS MARK TO BE READ. 



INTERRUPT (ADDRESS MARK) 



0146 DB02 
0148 EEFE 
014A C27801 
014D 76 



(EI) 




IN 


R2 


XRI 


0FEH 


JNZ 


RIM 


HLT 





READ DATA 

IS IT AN I.D. ADDRESS MARK? 

NO: JUMP TO RIM 

YES: WAIT FOR NEXT INTERRUPT. 



INTERRUPT (TRACK ADDRESS) 



014E 


DB02 


0150 


AE 


0151 


12 


0152 


13 


0153 


23 


0154 


76 



(EI) 
IN 

XRA M 
STAX D 
INX D 
I NX 
HLT 
IF STD 



R2 



H 



READ TRACK ADDRESS BYTE. 

COMPARE WITH DESIRED TRACK 

WTRK =0 FOR OK, =NON-ZERO FOR ERROR 

DE POINTS TO NEXT FLAG 

HL POINTS TO SECTR 

WAIT FOR NEXT INTERRUPT 



INTERRUPT (FIRST ZERO BYTE) 



(EI) 
IN 

STAX D 
INX D 

HLT 



R2 



READ ZERO BYTE 

ZEROl =0 FOR OK, =NON-ZERO FOR ERROR 

DE POINTS TO ZER02 

WAIT FOR NEXT INTERRUPT 
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ENDIF 



INTERRUPT (SECTOR ADDRESS) 



0155 DB02 

0157 AE 

0158 47 

0159 3E21 
015B D303 



(EI) 






IN 




R2 


XRA 


M 




MOV 


B,A 




MVI 


A,W3STT+W3CCW 


OUT 


W3 





015D 76 



HLT 



READ SECTOR ADDRESS BYTE 

COMPARE WITH DESIRED SECTOR 

B =0 FOR OK, =NON-ZERO FOR ERROR 

SEND COMMAND TO W3 . 

THIS COMMAND SETS CCW. (STT 

BIT MUST ALSO BE A ONE TO AVOID 

RESETTING STT.) THE BIT RING PULSE 

(BRP) FOLLOWING THE SETTING OF CCW 
WILL START A BIT BY BIT COMPARISON 
OF THE DATA READ FROM THE DISK WITH 
THE DATA READ FROM THE CRC REGISTER, 

(ALTHOUGH THE CPU WILL HAVE READ 
A COMPLETED BYTE AT THE NEXT 
BRP, THE DISK DRIVE HEAD WILL BEGIN 
READING THE 1ST CRC BYTE.) 

WAIT FOR NEXT INTERRUPT. 



IF STD 
INTERRUPT (SECOND ZERO BYTE) 



(EI) 
IN 


STAX D 
INX D 


HLT 
ENDIF 



R2 



015E 3E20 
0160 D303 



INTERRUPT (CRC BYTE 1) 

(EI) 
MVI A,W3STT 



OUT 



W3 



0162 76 


HLT 




•INTERRUPT (CRC BYTE 2) 


0163 DB01 


(EI) 

IN Rl 


0165 E620 


ANI RIDER 



READ 2ND ZERO BYTE 

ZER02 =0 FOR OK, =NON-ZERO FOR ERROR 
DE POINTS TO CRCID 

WAIT FOR NEXT INTERRUPT. 



TURN OFF CCW 

SEND COMMAND TO W3 
STT=1, CCW=0. CCW IS RESET. 
AT NEXT BRP BIT-BY-BIT CRC 
COMPARISON WILL END. 

WAIT FOR NEXT INTERRUPT. 



INTERRUPT CAUSED BY 2ND CRC BYTE 
WAS THERE A CRC ERROR? 
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0167 


12 


0168 


78 


0169 


B7 


016A 


C27801 


016D 


76 



016E 
016F 



EB 
B6 



0170 76 



0171 2B 

0172 B6 



0173 C27801 
0176 76 



0177 C9 



0178 DB00 
017A E602 
017C CA3601 
017F D306 

0181 0D 

0182 C23601 



0185 AF 

0186 D303 



0188 3E01 
018A 320904 
018D B7 
018E C9 



STAX D 


MOV 


A,B 


ORA 


A 


JNZ 


RIM 


HLT 




PT 


(FIR 


(EI) 




XCHG 


ORA 


M 


IF STD 


DCX 


H 


ORA 


M 


DCX 


H 


ORA 


M 


ENDIF 


HLT 





;CRCID =0 FOR OK, =NON-ZERO FOR ERROR 

; SECTOR OK? 
;NO, TRY AGAIN 
;YES 



;HL POINTS TO CRCID, A=0 
;TEST CRCID 



;TEST ZER02 
;TEST ZEROl 



INTERRUPT (2ND GAP BYTE) 

(EI) 
DCX H 
ORA M 



JNZ RIM 
HLT 

INTERRUPT (3RD GAP BYTE) 



TEST WTRK. (IS TRACK ADDRESS 

READ EQUAL TO SOFTWARE TRACK 

POINTER?) 

ONE OF THE ABOVE IN ERROR, TRY AGAIN, 



(EI) 
RET 



ERROR 



RIM: 



IN 


R0 


AN I 


R0IRQ 


JZ 


RIA 


OUT 


W6 


DCR 


C 


JNZ 


RIA 


XRA 


A 


OUT 


W3 


MVI 


A,l 


STA 


NOGO 


ORA 


A 


RET 





;NORMAL RETURN, ZERO FLAG=1 



READ STATUS 

WAS INTERRUPT AN INDEX REQUEST? 

NO: WAIT FOR NEXT MARK 

YES, IRQ RESET 

DECREMENT LIMIT 

WAIT FOR NEXT MARK IF NOT 3RD COMPLETE 

REVOLUTION OF DISK WITHOUT SUCCESS 

QUIT 
RESET STT 



COULD NOT FIND REQUESTED ID 
CLEAR ZERO FLAG 
ERROR RETURN 



***** READ DATA RECORD ROUTINE ***** 
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018F CD2B01 

0192 C0 

0193 3E60 
0195 D303 
0197 0604 
0199 76 



019A 05 
019B C29901 
019E 76 



019F 3E40 
01A1 D303 



01A3 218004 
01A6 1621 
01A8 0EFB 



01AA 3A0404 
01AD D603 
01AF 47 

01B0 3EA0 
01B2 D303 
01B4 76 



01B5 DB0 2 
01B7 B9 
01B8 C2EB01 



REGISTERS: A,F f B,C,DE,HL 
CALL READ ID RECORD FIRST 

READ: CALL RID ;READ ID 

RNZ ; ERROR IN RID, RETURN 

;(3 GAP BYTES HAVE BEEN READ, HEAD IS READING 4TH) 
MVI A,W3WCS+W3STT 

OUT W3 ;SET WRITE CLOCK, LEAVE STT SET 

MVI B,RSKIP-4 ;PASS GAP BYTES 4 THRU (RSKIP-1) 

RGAP: HLT 

INTERRUPT (GAP BYTE 4 THRU (RSKIP-1)) 



;WAIT FOR GAP BYTE #RSKIP. HEAD HAS 
;NOW PASSED AREA IN GAP THAT CONTAINS 
; UNKNOWN INFORMATION GENERATED WHEN 
; WRITE CURRENT WAS TURNED ON TO WRITE 
;DATA RECORD. 



(EI) 




DCR 


B 


JNZ 


RGAP 


HLT 





INTERRUPT (GAP BYTE #RSKIP) 



(EI) 

MVI A,W3WCS 
OUT W3 



LXI H,BUFFR 



MVI 



C0FBH 



LDA SCTSZ 
SUI 3 
MOV B,A 



RESET STT, SET WRITE CLOCK TO 
PREVENT INTERRUPTS UNTIL FOLLOWING 
IS DONE. 

SET HL TO 1ST ADDRESS OF 
STORAGE BUFFER. 



MVI D,W3STT+W3CCW ; STORE COMMAND TO SET CCW IN 

D REGISTER. 



STORE DATA ADDRESS MARK CODE 
IN C. 

SET SECTOR SIZE 

SAVE COUNT IN B 



MVI A,W3RCS+W3STT ;SET READ CLOCK, SET STT. 

OUT W3 

HLT ;WAIT FOR ADDRESS MARK. 

INTERRUPT (ADDRESS MARK) 



(EI) 
IN R2 
CMP C 
JNZ 



MARK 



;READ BYTE 

;IS IT A DATA ADDRESS MARK? 

;NO: JUMP TO MARK 



26 



01BB 76 



HLT 



;WAIT FOR FIRST DATA BYTE 



01BC DB02 
01BE 77 



01BF 23 
01C0 76 



01C1 DB02 

01C3 77 

01C4 05 

01C5 C2BF01 

01C8 23 

01C9 76 



01CA DB02 

01CC 77 

01CD 7A 
01CE D303 
01D0 76 



01D1 23 

01D2 DB02 

01D4 77 

01D5 76 



01D6 3E20 
01D8 D303 
01DA 76 



01DB DB01 
01DD 47 
01DE AF 



INTERRUPT (DATA BYTE 1) 



(EI) 
IN R2 
MOV 



; READ LOOP 

RLOOP: I NX 

HLT 



M,A 



H 



YES: READ FIRST DATA BYTE 
STORE FIRST DATA BYTE 



INCREMENT BUFFER POINTER 



INTERRUPT (DATA BYTES 2 THRU (SCTSZ-2) ) 



(EI) 




IN R2 




MOV 


M,A 


DCR 


B 


JNZ 


RLOOP 


INX 


H 


HLT 





; STORE DATA BYTE IN BUFFER 

; DONE ? 

;NO, READ NEXT BYTE 

; INCREMENT BUFFER POINTER 



INTERRUPT (DATA BYTE #(SCTSZ-1) ) 



(EI) 
IN R2 

MOV 

MOV 
OUT W3 
HLT 



M,A 
A,D 



;READ AND STORE NEXT TO 
;LAST DATA BYTE 



;SET CCW 



INTERRUPT (DATA BYTE #SCTSZ) 

;READ AND STORE LAST DATA BYTE 



(EI) 
INX H 
IN R2 
MOV 
HLT 



M,A 



INTERRUPT (FIRST CRC BYTE) 



(EI) 

MVI A,W3STT 
OUT W3 
HLT 



; RESET CCW 



INTERRUPT (2ND CRC BYTE) 



(EI) 
IN Rl 
MOV B,A 
XRA A 



;READ STATUS 
;SAVE STATUS 
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01DF D303 



01E1 78 



01E2 
01E4 
01E7 



E620 

320C04 

C8 



OUT W3 



MOV A,B 

ANI RIDER 
STA CRCDR 
RZ 



01E8 


C30002 




JMP 


MK030 


01EB 


AF 


MARK: 


XRA 


A 


01EC 


D303 




OUT 


W3 


01EE 


DB02 




IN R2 


01F0 


D6F8 




SUI 


0F8H 


01F2 


320D04 




STA 


ILLMK 


01F5 


C2FC01 




JNZ 


MK010 


01F8 


3C 




INR 


A 


01F9 


C3FD01 




JMP 


MK020 


01FC 


AF 


MK010: 


XRA 


A 


01FD 


320E04 


MK020: 


STA 


DELMK 


0200 


211004 


MK030: 


LXI 


H , RRTRY 


0203 
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DCR 


M 


0204 


C28F01 




JNZ 


READ 


0207 


AF 




XRA 


A 


0208 


D303 




OUT 


W3 


020A 


3C 




INR 


A 


020B 


C9 




RET 





020C 


CD2B01 


WRITE: 


020F 


C0 


; ( 3 GA 


0210 


0601 




0212 


76 


WGAP : 



RESET STT. (372 GOES TO WRITE 
CLOCK AUTOMATICALLY.) 

RECALL STATUS 

IS THERE A CRC ERROR? 
SET CRC DATA RECORD FLAG 
NO, NORMAL RETURN 



READ RECORD BUT FOUND 
CRC ERROR 

RESET STT 

READ MARK AGAIN 

IS IT A "DELETED DATA MARK"? 

SET ILLEGAL MARK FLAG 

ILLEGAL MARK 

DELETED DATA MARK 

ILLEGAL MARK 

SET DELETED DATA MARK FLAG 

CHECK FOR RETRY 

;TRY AGAIN 

RESET STT 

CLEAR ZERO FLAG TO 

INDICATE AN ERROR CONDITION 



***** WRITE DATA RECORD ROUTINE ***** 

REGISTERS: A,F,B,C,DE,HL 

CALL READ ID RECORD ROUTINE FIRST 

CALL RID ;READ ID 
RNZ ; ERROR IN RID, RETURN 

;(3 GAP BYTES HAVE BEEN READ, HEAD IS READING 4TH) 
MVI B,WSKIP-5 ; COUNT INTERRUPTS FROM ID 
HLT ; RECORD. (HEAD WILL THEN BE 

INTERRUPT 



0213 
0214 



05 
C21202 



(EI) 
DCR 
JNZ 



B 
WGAP 



; READING (WSKIP-1) BYTE) 



0217 3EB8 
0219 D301 



MVI A,W1CBS+W1CBN ;SET CLOCK BITS AND STROBE 
OUT Wl ;SET WRITE CLOCK LOGIC TO WRITE 

•ALL CLOCK BITS ("FF" CLOCK BITS) 

;FOR DATA 
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021B AF 
021C D302 
021E 76 



XRA A 
OUT W2 
HLT 



;SET WRITE DATA REGISTER TO 00. 
;WAIT FOR INTERRUPT 



INTERRUPT 

(EI) 



;HEAD IS READING GAP BYTE #WSKIP. 



021F 3E70 
0221 D303 

0223 DB01 
0225 E604 
0227 CA3202 



MVI A,W3WCS+W3STT+W3WES ;WCS, STT, WES = 1 



022A 
022C 
022F 



3E01 

320F04 

C3E700 



OUT W3 

IN Rl 
ANI R1WFT 
JZ WR010 
IF STD 
MVI A,W0WFR 
CALL SETW0 
MVI A,W0WFR 
CALL CLRW0 
ENDIF 
MVI A,l 
STA WRITF 
JMP ERROR 



0232 76 



233 76 



WR010: HLT 

INTERRUPT 

(EI) 

HLT 

IF STD 

INTERRUPT 

(EI) 
HLT 

INTERRUPT 

(EI) 
HLT 

ENDIF 



INTERRUPT 



0234 
0237 



218004 
76 



(EI) 

LXI H,BUFFR 
HLT 



WRITE CURRENT AND WRITE CLOCK 
WILL START AT NEXT BRP 
READ STATUS 
WRITE FAULT? 
NO, CONTINUE 



; WRITE FAULT RESET 
; CLEAR RESET BIT 

;YES, SET WRITE FAULT FLAG 

;WAIT FOR INTERRUPT 



;LAST FF GAP BYTE READ, 372 
; SWITCHES TO WRITE MODET. 
;HEAD BEGINS WRITING A 00 
;IN GAP BYTE #(WSKIP+1). 



;HEAD STARTS WRITING 00 

;IN BYTE # (NO. OF GAP BYTES - 4). 



;HEAD STARTS WRITING 00 

;IN BYTE # (NO. OF GAP BYTES - 3). 



;SET H,L TO START OF WRITE BUFFER 
;HEAD STARTS WRITING 00 IN 
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0238 06FB 

023A 0E22 
023C 16B8 

023E 1E20 
0240 3E80 

0242 76 



0243 D301 



024F 7B 
0250 D303 



0252 7E 

0253 D302 

0255 76 



INTERRUPT 



(EI) 
MVI 



B f 0FBH 



;BYTE #(N0. OF GAP BYTES - 2). 



LOAD DATA MARK IN B 

HEAD STARTS WRITING 00 IN 

NEXT TO LAST GAP BYTE. 



MVI CW3STT+W3CCG ; STORE SET CCG COMMAND IN C 

MVI D,W1CBS+W1CBN ; STORE "FF" CLOCK PATTERN 

COMMAND IN D 



MVI E,W3STT 



STORE RESET CCG COMMAND IN E 



MVI A,W1CBS+W1CBD ;STORE "C7" DATA MARK CLOCK 

PATTERN COMMAND IN A 



HLT 
INTERRUPT 



(EI) 
OUT Wl 



0245 


78 


MOV 




A,B 


0246 


D302 


OUT 


W2 




0248 


79 


MOV 




A,C 


0249 


D303 


OUT 


W3 




024B 


7A 


MOV 




A,D 


024C 


76 


HLT 
•INTERRUPT 

(EI) 






024D 


D301 


OUT 


Wl 





MOV 
OUT W3 



MOV 
OUT W2 



A,E 



A f M 



WAIT FOR INTERRUPT 



SET "C7" DATA MARK CLOCK PATTERN. 
HEAD STARTS WRITING 00 IN 
LAST GAP BYTE. 

SET "FB" DATA BITS FOR 
DATA MARK 

SET CCG. THIS CAUSES CRC 
CALCULATION TO BEGIN AT NEXT BRP. 

GET « FF » D ATA BIT CLOCK 
PATTERN IN A 

WAIT FOR INTERRUPT. 



HLT 



SET "FF" DATA BIT CLOCK PATTERN 
FOR NEXT BYTE. HEAD NOW BEGINS 
WRITING DATA MARK 

RESET CCG. (CCG MUST BE RESET 
BEFORE NEXT BRP OR CRC CALCULATION 
WOULD BEGIN AGAIN.) 

LOAD FIRST DATA BYTE IN 



;WAIT FOR INTERRUPT 
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INTERRUPT 



0256 3A0404 
0259 3D 
025A 47 



025B 23 
025C 7E 
025D D302 
025F 76 



(EI) 

LDA SCTSZ 
DCR A 
MOV B,A 



0260 
0261 

0264 
0266 



05 
C25B02 

3E21 
D303 



0273 
0275 



3E24 
D303 



; WRITE LOOP 
WLOOP: INX 
MOV 
OUT W2 
HLT 



INTERRUPT 



H 
A,M 



DATA MARK WRITTEN, HEAD 
STARTS WRITING DATA BYTE #1. 
SET SECTOR SIZE 

SAVE COUNT IN B. HEAD 

BEGINS WRITING FIRST DATA BYTE 



; WRITE DATA BYTES 2 THRU NBSCT 



(EI) 
DCR 
JNZ 



B 
WLOOP 



MVI A,W3STT+W3CCW ;SET CCW. IN WRITE MODE THE 372 



OUT W3 



0268 


76 


HLT 
• INTERRUPT 


0269 


76 


(EI) 
HLT 

• INTERRUPT 


026A 
026C 


3EFF 
D302 


(EI) 

MVI A,0FFH 
OUT W2 


026E 
0270 


3E20 
D303 


MVI A f W3STT 
OUT W3 


0272 


76 


HLT 
; INTERRUPT 



WILL BEGIN WRITING BITS FROM THE 
CRC REGISTER AT THE NEXT BRP 
FOLLOWING THE SETTING OF CCW. 
(HEAD IS WRITING LAST DATA BYTE) 

WAIT FOR INTERRUPT 



;LAST DATA BYTE WRITTEN. 

;HEAD STARTS WRITING FIRST CRC BYTE 



FIRST CRC BYTE WRITTEN. 
LOAD FF GAP BYTE IN WRITE DATA 
REGISTER (HEAD BEGINS WRITING 
2ND CRC BYTE.) 

RESET CCW COMMAND. CRC BIT 
WRITING WILL STOP AT NEXT BRP. 

WAIT FOR INTERRUPT. 



(EI) ;2ND CRC BYTE WRITTEN, HEAD 

; STARTS WRITING FF GAP BYTE. 
MVI A,W3STT+W3WER ; WRITE ENABLE RESET. WRITE 
OUT W3 ; CURRENT WILL STOP AT NEXT 

;BRP. (HEAD BEGINS WRITING 1ST 
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0277 76 



0278 AF 

0279 D303 

027B C9 



027C 16C0 
027E 3E01 
0280 C38702 



0283 1680 
0285 3EFF 

0287 211204 

028A 09 

028B 86 
028C 77 



HLT 
INTERRUPT 

(EI) 



XRA 
OUT W3 

RET 
ENDIF 



GAP BYTE.) 

WAIT FOR INTERRUPT 



FF GAP BYTE WRITTEN, WRITE 

CURRENT TURNS OFF. 

TURN OFF 37 2 BY RESETTING STT 



;DATA RECORD IS WRITTEN. 



STEP IN 

INPUT: BC=UNIT # 
REGISTERS: AF,D,HL 
STACK PAIRS: 1 
SUBROUTINES: DELAY f SETW0 
STI: MVI D,W4STS+W4SID ;D=STROBE+"IN" DIRECTION 
MVI A,l ; INCREMENT TKPTR 

JMP ST010 

STEP OUT 

INPUT: BC=UNIT # 
REGISTERS: AF,D,HL 
SUBROUTINES: DELAY ,CLRW0 



STO: 



ST010 



ST020 



ST030 



MVI 


D,W4STS 


MVI A, 


-1 


LXI 


H, TKPTR 


IF MU 




DAD 


B 


ENDIF 




ADD M 




MOV M, 


A 


IF STE 


) 


MVI A, 


LHCTK 


CMP M 




MVI A, 


W0LCT 


JM ST020 


CALL CLRW0 


XRA 


A 


JMP ST030 


CALL SETW0 


MVI 


A,l 


LXI 


H,LCRNT 


IF MU 




DAD 


B 


ENDIF 





;D=STROBE+"OUT" DIRECTION 
; DECREMENT TKPTR 



;ADD UNIT# TO HL 
; INC/DEC TKPTR 



; CHECK FOR WRITE CURRENT CHANGE 
;A=LHCTK-TKPTR 

;TRACK>LHCTK 
;TRACK<OR=LHCTK, 
;TURN OFF LOW CURRENT 



;TRACK>LHCTK, 

;TURN ON LOW CURRENT 

; UPDATE LOW CURRENT 

;ADD UNIT# TO HL 
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028D 7A 
028E D304 
0290 F620 
0292 D304 
0294 E6DF 
0296 D304 

0298 1628 
029A CDE602 
029D C9 



MOV M,A 
ENDIF 
MOV A,D 
OUT W4 
ORI W4SOS 
OUT W4 

ANI NOT W4SOS 
OUT W4 
DELAY TTACS MSEC 
MVI D, TTACS 
CALL DELAY 
RET 



IF STD 

HEAD LOAD SUBROUTINE 
INPUT: BC=UNIT# 
REGISTERS: AF f D,HL 
STACK PAIRS: 1 

SUBROUTINES: UASLC , DELAY, SETW0 
HDLD: LXI H,HEAD 

IF MU 

DAD B 

ENDIF 

MOV A,M 

ORA A 

RNZ 

MVI A f W0HLD 

CALL SETW0 

MVI D,40 

CALL DELAY 

MVI A,l 

JMP UL010 



; STORE LOW CURRENT STATUS 



SET DIRECTION 

TURN ON SOS 

OUTPUT RISING EDGE OF SOS 

TURN OFF SOS 

OUTPUT TRAILING EDGE OF SOS 



; CHECK HEAD STATUS 

;ADD UNIT# TO HL 

A=HEAD STATUS 

IS HEAD LOADED ALREADY? 

YES 

NO 

LOAD HEAD 

WAIT 40 MSEC 

;SET HEAD STATUS 



UNLOAD HEAD SUBROUTINE 
INPUT: BC=UNIT# 
REGISTERS: AF,HL 
STACK PAIRS: 1 
SUBROUTINES: UASLC, CLRW0 
UNLD: CALL UASLC 

MVI A,W0HLD 

CALL CLRW0 

XRA A 
UL010: LXI H,HEAD 

IF MU 

DAD B 

ENDIF 

MOV M,A 

RET 

ENDIF 



; UNLOAD HEAD 

; UPDATE HEAD STATUS 

;ADD UNIT# TO HL 

; STORE NEW HEAD STATUS 



IF MINI 
; MOTOR ON SUBROUTINE 
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029E 211804 



02A1 09 



2A2 
2A3 
2A4 
2A5 
2A6 
2A7 
2A8 
2AB 
2AD 
2AF 
02B2 
02B3 
2B6 
2B8 



2BB 
2BC 
02BD 
02BE 
02C1 
02C2 



2C8 
02CB 
2CC 
02CD 
02D0 
02D3 
2D4 
02D6 
2D7 



7E 

B7 

C0 

79 

3C 

07 

CDD002 

2604 

16FA 

CDE602 

25 

C2AD0 2 

3E01 

C3C202 



79 

3C 

07 

CDC802 

AF 

211804 



02C5 09 

02C6 77 
02C7 C9 



211104 

2F 

A6 

C3D402 

211104 

B6 

D300 

77 

C9 



INPUT: BC=UNIT# 
REGISTERS: AF,D,HL 
STACK PAIRS: 1 
SUBROUTINES 
MTRON: LXI 

IF MU 

DAD 

ENDIF 

MOV 

ORA 

RNZ 

MOV 

INR 

RLC 

CALL 

MVI 
MN010: MVI 

CALL 

DCR 

JNZ 

MVI 

JMP 



SETW0, DELAY 
H, MOTOR 



B 

A,M 
A 

A f C 
A 

SETW0 

H,4 

D,250 

DELAY 

H 

MN010 

A,l 

MF010 



MOTOR OFF SUBROUTINE 
INPUT: BC=UNIT# 
REGISTERS: AF,HL 
STACK PAIRS: 1 
SUBROUTINES: CLRW0 
MTOFF: MOV A,C 

INR A 

RLC 

CALL CLRW0 

XRA A 
MF010: LXI H, MOTOR 

IF MU 

DAD B 

ENDIF 

MOV M,A 

RET 

ENDIF 



;ADD UNIT# TO HL 



IS MOTOR ON ALREADY? 
YES, RETURN 
A=UNIT # 



TURN ON MOTOR 
DELAY 1 SECOND 



DONE? 

NO 

YES 



;A=UNIT # 

;TURN OFF MOTOR, UNLOAD HEAD 

;ADD UNIT# TO HL 

; UPDATE MOTOR STATUS 



WR0 MANAGER 

A=BITS TO BE CLEARED/SET 
REGISTERS: AF,HL 
STACK PAIRS: 
CLRW0: LXI H,WR0 
CMA 
ANA M 
JMP CR010 
SETW0: LXI H,WR0 

ORA M 
CR010: OUT W0 
MOV M,A 
RET 



CLEAR 



SET 



SAVE A COPY OF W0 
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2D8 



02D8 
02D9 
2DA 
2DC 
02DE C9 



79 
3C 

F604 
D301 



UNIT A SELECT SUBROUTINE 

INPUT: BC=UNIT# 
REGISTERS: AF 
STACK PAIRS: 



UASLC EQU $ 

IF NOT MU 

LXI B,0 

ENDIF 

MOV A , C 

INR A 

ORI W1UAS 

OUT Wl 

RET 

IF STD 

RDYA: IN Rl 
AN I R1RYA 
RNZ 
CMA 

STA SLCTF 
JMP ERROR 
ENDIF 



;SET UNIT#=0 

;A=UNIT# 

;TURN ON STROBE 
; SELECT UNIT 



CHECK FOR READY 

READY? 

YES 

NO, ERROR 

SET SELECT FAULT FLAG 



02E6 3E04 
02E8 D306 

02EA DB00 
02EC E604 
2EE CAEA0 2 

02F1 15 

02F2 15 
02F3 C2E602 



IF MU 
UNIT B SELECT SUBROUTINE 
INPUT: C=UNIT# 
REGISTERS: AF 
STACK PAIRS: 



2DF 


79 


UBSLC: 


MOV 


A,C 


2E0 


3C 




INR 


A 


2E1 


F604 




ORI 


W4UBS 


02E3 


D304 




OUT W4 




2E5 


C9 




RET 
ENDIF 





;TURN ON STROBE 
; SELECT UNIT 



DELAY SUBROUTINE 

D= # OF MSEC (MAX=256 WITH B=0) 
REGISTERS: AF,D 



DELAY: MVI A,W6TRR ;TURN ON TRR 

OUT W6 ; RESET TIMER REQUEST 

; WAIT FOR TRQ RST STATUS 



D010 



IN R0 
ANI R0TRQ 
JZ D010 
IF MINI 
DCR D 
ENDIF 
DCR D 
JNZ DELAY 



READ STATUS 
CHECK FOR TRQ 
WAIT FOR 1 MSEC 

;MINI CLOCK IS HALF FAST 

; DONE ? 
;NO 
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02F6 C9 



RET 



;YES 



IF MU 
DOUBLE INDEX ADRESSING SUBROUTINE 
INPUT: HL=BASE 

BC=UNIT# 
OUTPUT: HL=HL+2*(UNIT#) 
REGISTERS: AF,HL 
STACK PAIRS: 



02F7 79 


DINDX: 


MOV 


A,C 


;A=UNIT# 


02F8 07 




RLC 




;A=2*(UNIT#) 


02F9 85 




ADD 


L 




2FA 6F 




MOV 


L,A 


;L=L+2* (UNIT#) 


02FB 78 




MOV 


A,B 




02FC 8C 




ADC 


H 




02FD 67 




MOV 


H,A 


;H=H+B+CARRY 


02FE C9 


• 


RET 
ENDIF 

IF FMT 




;HL=HL+2* (UNIT#) 



02FF CD2600 
0302 CDD802 

0305 CD9E02 



0308 210100 



030B 


3EB8 


030D 


D301 


030F 


3EFF 


0311 


D302 


0313 


3E78 


0315 


D303 


0317 


FB 


0318 


76 



***** DISK FORMATTING ROUTINE ***** 



FRMAT: 



INITIALIZE DISK UNIT 



;TURN ON MOTOR,, LOAD HEAD 



; CHECK READY STATUS 
;LOAD HEAD 



CALL INIT 
IF MU 

CALL UASLC 
ENDIF 
IF MINI 
CALL MTRON 
ENDIF 
IF STD 

CALL RDYA 
CALL HDLD 
ENDIF 
; INITIALIZE ADDRESS POINTERS 

LXI H,l ;H=0 0=TRACK ADDRESS 

;L=01=SECTOR ADDRESS 

• SET UP COMMANDS 

FM030: MVI A,W1CBS+W1CBN 

OUT Wl ;SET CLOCK BITS 

MVI A,0FFH 

OUT W2 ;SET WRITE DATA=0FFH 

MVI A,W3WCS+W3STT+W3WES+W3IXS 

OUT W3 ;SET 3 72 TO START WRITING 

;AT INDEX HOLE 
EI ; ENABLE INTERRUPTS AND 

HLT ;WAIT FOR INDEX 

INTERRUPT (INDEX START) 

(EI) HEAD IS WRITING FIRST GAP BYTE 
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0319 3E02 MVI A,W6IRR 

031B D306 OUT W6 

IF STD 
; WRITE PRE-INDEX GAP 

MVI B,NFPRI 
FM040: HLT 



; RESET INDEX REQUEST 



; B=NUMBER OF 0FFH GAP BYTES 
;WAIT FOR BRP INTERRUPT 



INTERRUPT (DATA REQUEST) 



FM050: 

INTERRUPT 



(EI) 
DCR B 
JNZ FM040 
XRA A 
OUT W2 
MVI B r 5 
HLT 



HEAD WRITES GAP BYTES 2-40 
DONE? 

NO, REPEAT 
YES, CHANGE GAP 
BYTE TO 0H 
B=BYTE COUNT 



(EI) 
DCR B 
JNZ FM050 
HLT 



HEAD WRITES GAP BYTES 41-45 
; DONE ? 

; NO, REPEAT 
;YES 



INTERRUPT 



(EI) HEAD IS WRITING GAP BYTE 46 
WRITE INDEX ADDRESS MARK 
MVI A,W1CBS+W1CBI 

OUT Wl ; CHANGE CLOCK BITS 

MVI A,0FCH 

OUT W2 ;SET WRITE DATA=0FCH 

HLT ; WRITE MARK 

INTERRUPT 

(EI) HEAD IS WRITING INDEX ADDRESS MARK 
WRITE POST-INDEX GAP 

MVI A,W1CBS+W1CBN 
OUT Wl 
MVI A,0FFH 
OUT W2 
END IF 



;SET CLOCK BITS 
;SET WRITE DATA=0FFH 



031D 060F 
031F 76 



0320 05 

0321 C21F03 

0324 AF 



FM060: 

INTERRUPT 



MVI B,NFPOI 
HLT 



; B=BYTE COUNT 
; WRITE GAP BYTE 



(EI) HEAD WRITES GAP BYTES 1 THRU NFPOI 
DCR B ;DONE? 

JNZ FM060 ; NO, REPEAT 



FM0 70: XRA A 



; BEGINNING OF SECTOR WRITE LOOP 
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0325 D302 
0327 76 



0328 76 



0329 76 



032A 06FE 
032C 0E22 

032E 16B8 

0330 1E20 
0332 3E80 

0334 76 



0335 D301 

0337 78 

0338 D302 
033A 79 
033B D303 
033D 7A 

033E 76 



OUT W2 
HLT 



INTERRUPT 

(EI) 
HLT 

INTERRUPT 

(EI) 
HLT 
IF STD 

INTERRUPT 

(EI) 
HLT 

INTERRUPT 

(EI) 
HLT 
END IF 

INTERRUPT 



; -EXECUTED NSCTR TIMES 
;SET WRITE DATA=00H 



HEAD IS WRITING 1ST 00 BYTE 



2ND 



3RD OF 6 



4TH OF 6 



(EI) HEAD IS WRITING NEXT TO LAST 

;FF GAP BYTE. 
MVI B,0FEH ; LOAD ID MARK IN B 
MVI C,W3STT+W3CCG ; STORE SET CCG COMMAND IN C 

; (ALSO RESETS IXS) 
MVI D,W1CBS+W1CBN ; STORE "FF" CLOCK PATTERN 

; COMMAND IN D 
MVI E,W3STT ; STORE RESET CCG COMMAND IN E 
MVI A,W1CBS+W1CBD ; STORE "C7" DATA MARK CLOCK 

; PATTERN COMMAND IN A 
HLT 



INTERRUPT 



(EI) 
OUT Wl 
MOV A,B 
OUT W2 
MOV A,C 
OUT W3 
MOV A,D 

HLT 



HEAD IS WRITING LAST GAP BYTE 

SET "C7" DATA MARK CLOCK PATTERN 

SET "FE" DATA BITS FOR 

ID MARK 

SET CCG. THIS CAUSES CRC 

CALCULATION TO BEGIN AT NEXT BRP, 

GET "FF" DATA CLOCK BIT 

PATTERN IN A 



INTERRUPT 
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033F 


D301 


' (EI) 

OUT Wl 


0341 
0342 


7B 
D303 


MOV A,E 
OUT W3 


0344 
0345 
0347 


7C 

D302 

76 


MOV A,H 
OUT W2 
HLT 

• INTERRUPT 

\ (EI) 

IF STD 
XRA A 
OUT W2 
HLT 

• INTERRUPT 

\ (EI) 
ENDIF 


0348 
0349 
034B 


7D 

D302 

76 


MOV A,L 
OUT W2 
HLT 

• INTERRUPT 

\ (EI) 

IF STD 
XRA A 
OUT W2 
HLT 

', INTERRUPT 

(EI) 
ENDIF 


034C 
034E 


3E21 
D303 


MVI A,W 
OUT W3 


0350 


76 


HLT 
INTERRUPT 


0351 


76 


(EI) 
HLT 



HEAD IS WRITING ID ADDRESS MARK 

SET "FF" DATA CLOCK BIT PATTERN 
FOR NEXT BYTE. HEAD NOW BEGINS 
:WRITING ID MARK 

RESET CCG. (CCG MUST BE RESET 
BEFORE NEXT BRP OR CRC CALCULATION 
WOULD BEGIN AGAIN.) 
LOAD TRACK ADDRESS 

;WAIT FOR INTERRUPT 



HEAD IS WRITING TRACK ADDRESS 



;SET DATA BYTE=00H 



HEAD IS WRITING FIRST ZERO BYTE 



;SET DATA BYTE=SECTOR ADDRESS 



HEAD IS WRITING SECTOR ADDRESS 



;SET DATA BYTE=0 0H 



HEAD IS WRITING 2ND ZERO BYTE 



MVI A,W3STT+W3CCW ; SET CCW. IN WRITE MODE THE 372 

WILL BEGIN WRITING BITS FROM THE 
CRC REGISTERS AT THE NEXT BRP 
FOLLOWING THE SETTING OF CCW. 
WAIT FOR INTERRUPT 



HEAD IS WRITING FIRST CRC BYTE 
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0352 
0354 
0356 
0358 
035A 
035C 



3EFF 
D302 
3E20 
D303 
0606 
76 



035D 
035E 
0361 
0362 
0364 



05 

C25C03 

AF 

D302 

76 



0365 76 

0366 76 



0367 06FB 
0369 3E80 

036B 76 



036C 
036E 
036F 
0371 
0372 
0374 



D301 

78 

D302 

79 

D303 

7A 



0375 76 



INTERRUPT 



(EI) 



HEAD IS WRITING 2ND CRC BYTE 



FM080 



MVI A,0FFH 

OUT W2 

MVI A,W3STT 

OUT W3 

MVI B,NFGP2 

HLT 



LOAD FF GAP BYTE IN WRITE DATA 
REGISTER 

RESET CCW COMMAND. CRC BIT 
WRITING WILL STOP AT NEXT BRP. 

B=BYTE COUNT 



INTERRUPT 



(EI) 
DCR B 
JNZ FM080 
XRA A 
OUT W2 
HLT 
(EI) 
HLT 
(EI) 
HLT 

IF STD 

(EI) 

HLT 

(EI) 

HLT 

ENDIF 



HEAD WRITES GAP BYTES 1 THRU NFGP2 
DONE? 

NO, REPEAT 
YES, CHANGE GAP BYTE 
TO 0H 

1ST 00 

2ND 00 

NEXT 
NEXT 



INTERRUPT 



(EI) HEAD IS WRITING NEXT TO LAST GAP BYTE 

MVI B,0FBH ; LOAD DATA MARK IN B 

MVI A,W1CBS+W1CBD ; STORE "C7" DATA MARK CLOCK 

; PATTERN COMMAND IN A 
HLT ;WAIT FOR INTERRUPT 



INTERRUPT 



(EI) 
OUT Wl 
MOV A,B 
OUT W2 
MOV A,C 
OUT W3 
MOV A,D 

HLT 



INTERRUPT 



0376 D301 



(EI) 
OUT Wl 



HEAD IS WRITING LAST GAP BYTE 

SET "C7" DATA MARK CLOCK PATTERN, 

SET "FB" DATA BITS FOR 

DATA MARK 

SET CCG. THIS CAUSES CRC 

CALCULATION TO BEGIN AT NEXT BRP, 

GET ii FF n DATA BIT CLOCK 

PATTERN IN A 

WAIT FOR INTERRUPT. 



HEAD IS WRITING DATA ADDRESS MARK 

;SET "FF" DATA BIT CLOCK PATTERN 
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0378 
0379 



7B 
D303 



037B 3EE5 
037D D302 
037F 76 



0380 
0382 



067F 
76 



0383 05 

0384 C28203 



MOV A,E 
OUT W3 

MVI A,0E5H 
OUT W2 
HLT 



FOR NEXT BYTE. 

RESET CCG. (CCG MUST BE RESET 

BEFORE NEXT BRP OR CRC CALCULATION 

WOULD BEGIN AGAIN.) 

LOAD DATA 



INTERRUPT 

(EI) DATA BYTE 1 
MVI B,NBSCT-1 
FM100: HLT 



INTERRUPT 



(EI) 
DCR B 
JNZ FM100 



HEAD WRITES DATA BYTES 2-NBSCT 



0387 3E21 
0389 D303 



038B 76 



MVI A,W3STT+W3CCW ;SET CCW. IN WRITE MODE THE 372 



038C 76 



038D 
038F 
0391 
0393 
0395 
0397 



0398 
0399 



3EFF 
D302 
3E20 
D303 
0611 
76 



05 
C29703 



OUT W3 



HLT 



INTERRUPT 

(EI) 
HLT 

INTERRUPT 

(EI) 



FM110: 

INTERRUPT 



MVI A,0FFH 

OUT W2 

MVI A,W3STT 

OUT W3 

MVI B,NFGP3 

HLT 



WILL BEGIN WRITING BITS FROM THE 
CRC REGISTERS AT THE NEXT BRP 
FOLLOWING THE NEXT SETTING OF CCW 



HEAD IS WRITING FIRST CRC BYTE 



HEAD IS WRITING 2ND CRC BYTE 



LOAD FF GAP BYTE IN WRITE DATA 

REGISTER 

RESET CCW COMMAND. CRC BIT WRITING 

ENDS 

B=BYTE COUNT 



(EI) HEAD WRITES GAP BYTES 1 THRU NFGP3 
DCR B ;DONE? 

JNZ FM110 ; NO, REPEAT 



039C 2C 
039D 3E12 
039F BD 
03A0 D22403 



INR L 

MVI A,NSCTR 

CMP L 

JNC FM0 70 



; INCREMENT SECTOR ADDRESS 

;LAST SECTOR? 

; NO, WRITE ANOTHER SECTOR 



; WRITE FF'S TO END OF TRACK 
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03A3 76 



FM120: HLT 



3A4 DB00 
03A6 E602 
3A8 CAA303 



03AB F3 
03AC 3E04 
03AE D303 



03B0 
03B2 
03B3 
03B4 
03B6 
03B7 
03B8 
3BA 
03BD 
03C0 
03C1 
03C3 



3E22 

BC 

C8 

2E01 

24 

E5 

1602 

CDE602 

3A0104 

4F 

0600 

CD7C02 



03C6 160A 

03C8 CDE602 

03CB El 

03CC C30B03 



03CF 
0400 



0401 
0402 
0403 
0404 
0004 



0405 
0406 
0407 
0408 



INTERRUPT 



(EI) 
IN R0 
ANI R0IRQ 
JZ FM120 



HEAD WRITES GAP BYTES 
READ STATUS 
INDEX REQUEST? 
NO, CONTINUE 



END OF TRACK 
DI 

MVI A,W3WER 
OUT W3 



MVI A,NTRKS-1 

CMP H 

RZ 

MVI L,l 

INR H 

PUSH H 

MVI D,02 

CALL DELAY 

LDA UNIT 

MOV C f A 

MVI B , 

CALL STI 

IF MINI 

MVI D f STLNG 

CALL DELAY 

ENDIF 

POP H 

JMP FM030 

ENDIF 



***** RAM AREA ***** 





ORG 0400H 


; COMMAND 


CMND: 


DS 1 


; PARAMETERS 


UNIT: 


DS 1 


TRACK: 


DS 1 


SECTR: 


DS 1 


SCTSZ: 


DS 1 


NP 


EQU $-UNIT 


; FLAGS 




MERF: 


DS 1 


CMDER: 


DS 1 


PRMER: 


DS 1 


SLCTF: 


DS 1 



; WRITE ENABLE AND STT RESET. 

; INDEX REQUEST IS AUTOMATICALLY RESET 

;BY STT RESET. 

LAST TRACK? 

YES, FORMATTING COMPLETE 

NO, RESET SECTOR ADDRESS 
INCREMENT TRACK ADDRESS 
SAVE HL 

WAIT FOR TUNNEL ERASE HEAD 
TO REACH END OF TRACK BEFORE 



;BC=UNIT# 

; STEPPING HEAD. 

;HEAD SETTLING DELAY 



; RESTORE HL 
; CONTINUE 



; COMMAND (1-NCMDS) 



;FDD UNIT BEING COMMANDED 

;TRACK DESIRED 

; SECTOR DESIRED 

; SECTOR SIZE 

;NO. OF PARAMETERS 



MASTER ERROR 

COMMAND ERROR 

PARAMETER ERROR 

SELECT FAULT (NOT USED WITH MINI) 
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0409 


NOGO: 


DS 1 


040A 


WTRK: 


DS 1 
IF STD 




ZEROl: 


DS 1 




ZER02: 


DS 1 
ENDIF 


040B 


CRCID: 


DS 1 


040C 


CRCDR: 


DS 1 


040D 


ILLMK: 


DS 1 


040E 


DELMK: 


DS 1 


040F 


WRITF: 


DS 1 


000B 


NF 


EQU $-MERF 




•COUNTERS, POINTERS, 


0410 


RRTRY : 


DS 1 


0411 


WR0: 


DS 1 


0412 


TKPTR: 


DS NU 


0414 


ITIME: 


DS NU*2 
IF STD 




HEAD: 


DS NU 




LCRNT: 


DS NU 
ENDIF 
IF MINI 


0418 


MOTOR: 


DS NU 
ENDIF 


001A 


NB 


EQU $-CMND 



; FAILED TO FIND SECTOR 
; WRONG TRACK 

;ZERO BYTE 1 NOT ZERO 
;ZERO BYTE 2 NOT ZERO 

CRC ERROR IN ID 

CRC ERROR IN DATA READ 

ILLEGAL DATA MARK 

DELETED DATA MARK 

WRITE FAULT 

NUMBER OF FLAGS 



STATUSES 

;READ RETRY COUNTER 

;COPY OF LATEST W0 

; TRACK POINTER FOR EACH UNIT 

; ELAPSED IDLE TIME 

;HEAD STATUS (l=LOADED, 0=UNLOADED) 
;LOW CURRENT (1=YES,0=NO) 



;MOTOR STATUS (0=OFF,1=ON) (MINI ONLY) 
;NO. OF BYTES IN DATA AREA 



; STACK 



041A 



ORG 4 80H 



0480 



; DATA BUFFER 
BUFFR: DS NBSCT 



0000 



END 
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